PROGRAM 


LIBRARY 



DECUS NO. 


8-241 


TITLE 


BUZZTAPE READER/WRITER 


AUTHOR 


Evan Suits 


COMPANY 


Submitted by: Robert L. Isaacson 
University of Florida 
Department of Psychology 
Gainesville/ Florida 


DATE 


October 28, 1969 


SOURCE LANGUAGE 


PAL III 


ATTENTION 

This is a USER program. Other than requiring that it conform to submittal and review standards, 
no quality control has been imposed upon this program by DECUS. 

The DECUS Program Library is a clearing house only; it does not generate or test programs. No 
warranty, express or implied, is made by the contributor, Digital Equipment Computer Users 
Society or Digital Equipment Corporation as to the accuracy or functioning of the program or 
related material, and no responsibility is assumed by these parties in connection therewith. 








DECUS Program Library Write-up 


DECUS No. 8-241 


BUZZTAPE READER / WRITER 

Evan Suits 
October 1969 


ABSTRACT 


The BUZZTAPE READER and WRITER programs can be 
used to build an inexpensive magnetic tape system for 
storage and retrieval of data or programs. Both the 
READER and WRITER occupy locations normally containing 
BIN. Transfer rate is about 4 msec per 12 bit word, 
or about 15 seconds for 4K. 
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REQUIREMENTS 

STORAGE: READER - 7625 to 7736 

WRITER - 7625 to 7717 

Equipment: 

READER - PDP 8/1 

AX08 

Stereo Tape Recorder 

Writer - PDP 8/1 

AX08 with XR Option 
Stereo Tape Recorder 







USAGE 


LOADING: Both programs are loaded with the 

RIM Loader 

OPERATION: READER - Load READER program with the 

RIM loader. Connect the 'RIGHT' 
channel of the tape recorder to the 
SI PULSE INPUT of*the AX08. Connect 
the 'LEFT' channel to the S2 pulse 
input. Set SR= 7625, and press 
LOAD ADDRESS. Activate tape recorder 
playback and press START. Output 
level indicators on the tape recorder, 
if any, may be monitored to determine 
when the loading is complete. When 
loading is complete, press STOP. 

WRITER - Load WRITER with the program 
or data to be written out already in 
core memory. Connect AX08 contingency 
outputs R1 and R2 to 'RIGHT' and 'LEFT' 
tape recorder channel inputs, respectively. 
Set SR=7625 and press LOAD ADDRESS. Set 
SR= initial address of block of core 
memory to be written out and press 
START. Set SR= final address of the 
block and press CONTINUE. Activate 
the tape recorder in record mode and 
press CONTINUE. The WRITER will halt 
when the block has been written out. 

To write out subsequent blocks, set 
SR=initial address of next block and 
press CONTINUE. Set SR = final address 
of the block and press CONTINUE. 

Activate the tape recorder and press 
CONTINUE. Any number of blocks may be 
written out in this manner, or the 
WRITER may be restarted at 7625. 

The readout is non-destructive. 
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DESCRIPTION 


GENERAL; The BUZZTAPE READER And WRITER make 
possible an inexpensive magnetic tape storage system 
which can load or unload a 4K core memory in about 
15 seconds. A medium quality stereo tape recorder is 
used for recording and playback of programs or data. 

The READER requires an AX08 or similar pulse input 
device and the WRITER requires an AX08 with contingency 
outputs or similar pulse outputs. 


FOR BEST RESULTS: 

Use high quality, instrumentation 
type magnetic tape to minimize 
dropout. 


Keep recording and playback levels 
as high as is possible without 
inducing distortion or "ringing". 


Tape speed should be as fast as 
possible to maximize acuity and 
reliability 


Leader and trailer should be used 
generously to prevent program 
overlap or interference 


FORMAT: The 'LEFT' channel of the tape is used 

solely for synchronization purposes in telling the 
program when to look for a pulse on the 'RIGHT' channel. 
Information is stored serially in 12 bit word blocks, 
each word beginning with BIT 0. The 'RIGHT' channel is 
used both for data and address codes. As the 12 pulses 
of each word are read (or written) on the LEFT channel 
the RIGHT channel contains pulses corresponding to the 
'l's in the data word. A pulse on the RIGHT channel 
not accompanied by a 'SYNCH' pulse on the left channel 
indicates that the following 12 bit word is the initial 
address of the next block of data. Both the READER 
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and WRITER programs contain software address counter 
registers which are incremented after each data word is 
processed. In the WRITER program the address register 
is initialized at the beginning of the writeout of each 
data block. The address register of the READER program 
is incremented after each data word is deposited in core 
and is reset when an address code is encountered during 
readin. 

TIMING: The WRITER produces pulses of 0.1 msec 

width with an interpulse interval of 0.2 msec. The 
READER program treats pulses whose leading edges 
are within 50 Usee (1/2 pulse width) of each other 
as arriving simultaneously. This prevents small 
fluctuations in pulse arrivals in the two channels 
from disrupting operation. 
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/ 0 U 7 7 I’ APF WRITER 



7 F E N = 6 

3 4 2 



i f E N = 634A 




*7 6 A ‘5 

7 6 2 5 

7 3 3 1 

START# 

CLA CLL 

7 6 2 6 

7 6 3/1 


1 A S 

7 A >7 

3 35 l 


DC A REG 

7 6 3 ) 

7 43:3 


HLT 

7 6 3 1 

7 6 3 4 


LAS 

7 6 3 3 

7 1 4 1 


CMA 

7 6 3 3 

1331 


TAD HEG 

7 6 3 4 

3 3 53 


DCA MOM 

7 6 3 5 

7 4 13 


HLT 

7636 

1 353 


TAD ADC ODE 

7637 

4 37 7 


JOS PRINT 

7 6 43 

125 1 


TAD REG 

7 6 4 1 

4 3 5 4 


JMS WRITE 

7 64 3 

1631 


TAD l DEG 

7643 

42 54 


JMS WRITE 

7 6 4 4 

223 1 


IS 7 HEG 

7643 

2 35 2 


IS7 NOM 

7646 

5 34 2 


JMP .-4 

7647 

7 43 3 


HLT 

7 6 33 

52 3 5 


JMP STARF 

7631 

3333 

AEG# 

0 

76 52 

3 33 3 

NON# 

•i 

7653 

•3 5 43 

ADC 00E # 

, /it 

7654 

333 3 

WRITE# 

) 

7655 

3272 


OCA WRHOLD 

7656 

1 27 3 


TAD Ml 4 

7657 

327 4 


DCA SET 

7 66 3 

1 27 2 

NEXT, 

TAD WRHOLD 

766 1 

733 4 


RAL 

766 3 

327 2 


DCA WRHOLD 

7663 

7 433 


SZL. 

7664 

l 27 6 


TAD 01 T 

7665 

127 5 


TAD SYNCH 

7 66 6 

4 37 7 


JMS pR I NT' 

7667 

327 4 


IS7 SET 

7673 

526 1 


JMP NEXT 

767 1 

5654 


JMP I WRITE 

7673 

33 3 3 

WRHOLD# 

0 

7 6 7 3 

7 7 6 4 

M l a # 

-1 4 

7674 

3 3 13 

SET# 

0 

767 3 

3 3:23 

SYNCH, 

2'Z 

767 6 

33 4-1 

01 r # 

40 

7677 

33 3 1 

P RI NT # 

0 

773 3 

6 3 4 2 


7 TEN 

77 3 l 

6 344 


OTEN 

77 3 2 

1 3 1 5 


TAD DELY1 

77 3 3 

3 3 1 7 


DCA OELYA 

773 4 

23 17 


ISZ. OELYA 

77 3 5 

53 1 4 


JMP .-1 

77 3 6 

6342 


7 TEN 


oc r s 9 


/ f ■; r i n i r i a !. a do '< s s 

/ SET A') )RESS REG I ST 5 !-? 

/ f;*v r - I NAl. ADDRESS 

/ CALC 1 1 LA FE A LOCK LENGTH' 
/ SET COUNTER FOR 
/ ALOCK LENGTH 

/ OUTPUT AD)RESS CODE 

/ OUTPUT INITIAL ADDRESS 
/ OFT DATA WORD 

/ output data word 

/ I NC R E ME N r A 0 0 R F. S S 
7 DONE WITH A LOCK? 

/ NO# G-T NEXT WORD 
/ YES# PREPARE FOR 

/ next olock 
/ ADDRESS REGISTER 


/ WORD OUTPUT ROOT IMF 
/ STORE DATA WORD 

/ I NIT I ALI ZS CO'fNTER 

/ R 0 T A T F F I R R T D A T A 11 T 
/ INTO LINK 
/ IS THF AIT A * I ' ? 

/ YES# GFT AIT COOF 
/ NO# 00TPOT SYNCH CODE 
/ AI..ONF 

/ DONE WITH WORD? 

/ NO# OFF NEXT AIT 
7 YES# RETORN 


/ 00TOOF ROOT INF 
/ SET CONTINGENCY 
/ OUTPUTS 

/ LEAVE. ON FOR 
/ o.l MSEC 

/ CLEAR OUTPUTS 
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7 7 ' 7 

A '< 4 4 


rr-: •' 

/ 7 ! 1 

1 3 1 A 


1 3) » ) ? 1 . Y > 

7 / 1 1 

3 3 1 7 


dc: m i ) • » y 3 

77 1 ? 

? 3 1 7 


I 3 A * > L. V 3 

/ 7 l 3 

*>3 i ? 


J .-1 

7 7 1 4 

> A 7 7 


• T >->31 

77 1 5 

7 7 3 ? •.! 

KLY 1 , 

7 7 5? 

7 7 1 A 

7 7 > 4 ] 

> .*: i. v 

7 7 3 4 

77 ! 7 

5 14 ! 1.1 

»:lym, 

1 

'\ou 

7 A 5 3 



i .; 

7 A S 1 



f I i 

7 A 7 A 



i)£L.Y 1 

7 7 1 5 



o»: ly -> 

7 7 1 A 



)-:ly? 

7 7 17 



M1 /i 

7 A 7 1 



iV-'. x i 

7 A A :i 



N 1 J i v - 

7A33 



OT£N 

6344 



P !\* INF 

7 67 7 



s-' r 

7 A 7 4 



s r * y r 

7635 



S Y MCH 

7 67 5 



'WH GLO 

7 67? 



: J < I T£ 

7 A 54 



zrsN 

634? 
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763 5 

7 14 1 

/ AO/71 APE ,(»:ao.N - . 
XrO L = 6'<34 

XR f M = 4311 

*76 13 

314 71, C M4 

)CT 6 9 

/ A 3 A 

6 314 

XK'CL 

/ CLEAR EXTERNAL 

7 6 37 

7 3 1 • 

CL5 CLL 

/ REGTSTEP 

7 A 3 1 

4 3 1 4 

J ’-'3 LI 3 \ 

/ GEL °ULSE 

7 A3 1 

4 37 5 

JC3 AOT-'S | 

/ A-)*)RESS CODE? 

7 f> 3 3 

53 33 

, I M» 3 .-3 

/ YES 

7 A 33 

3 37 1 

oca i hi ,4 

/ NO, STORE POISE 

7 A 3 4 

1 37 3 

TAo c \ r -.-iv 

7 A 33 

337 3 

00A CNF 3 

/ SET op to COUNT AI 

7 A3 A 

3 37 4 

DC A WAI.)3 

/ C L E A 7 0 A T A R E G T ~ T E 

7 A 37 

7 1 1 i 

CLL 


764 1 

1 37 1 

TAD GE1'Hl. > 

/ GET E I 7ST AIT 

76 4 1 

7 33 6 

GO, 7 rL 

7643 

7 3 3 4 

341. 

/ ROTATE INTO AIT 11 

7643 

7 1 3) 

CLL 

/ CLEAN 0™F SYNCH Pt 

76 4 4 

3 37 1 

OCA GETHLD 

6 STORE RESOIT 

76 4 5 

l 37 4 

TAO ‘./All!7 

/ GET DATA 007') 

7 A 4 A 

7 1 14 

3 A L 


76 47 

l 37 1 

TAO GETHLD 

/ ADO IN NEXT AIF 

7 6 5 3 

337 4 

OCA VALUE 


765 1 

337 3 

13 6 C NT7 

/ 1) AITS YET? 

76 53 

3336 

JMP .+1 


7 A 5 3 

l 37 4 

TAD VALUE 

/ YES, GET WHOLE •■MR- 

7 A 5 4 

5357 

JMP .+1 

/ GO TO PROCESSING 

7 A 5 5 

43 14 

JMS LISE 

/ NO, GET NEXT AIT 

7 6 5 A 

534 1 

JMP AO 


76 5 7 

7 3 ) 3 

AR A \C A , NO’P 

/ P R 00 E S S I \’G A R A NO H 

7 A 6 3 

36 7 1 

OCA I AO) 

/ deposit as data 

76 6 ! 

337 5 

IS T 400 

/ I NC7E■'■ ENT ADDRESS 

7 A A 3 

5 337 

•J L J S T A 7 J + 1 


7 A A 3 

337 1 

400 <S , OCA 400 

/ 0 Ep 0SIT As ADOPES S 

7 A A 4 

1 367 

i40 N 07 P 


76 A 5 

335 7 

OCA 0 7 4 i\C n 

/ SET A RANCH E 07 DAT 

7 AAA 

533 7 

JMP S T 4 7T+1 

7667 

7 3 3 3 

N07P, NOA 


767 3 

3 311 

400, 

/ A n •) R E s s r E G I S T E 7 

767 1 

"3 3 13 

GETHL.O , o 


76 7 3 

7 7 64 

CETTE, -14 


7 6 7 3 

3 13 3 

CNT 7 , •' 


767 4 

3 33 3 

VALUE, 


767 5 

3 3 33 

AOTEST, ! 

X imr I NE POP SENS J \-r 

7 67 6 

331 1 

OCA 40H0L.0 

/ ADDRESS CODE 

7677 

1311 

TAO AOHQLO 


7 7 13 

13 13 

TAO AOKEY 


7 7 j 1 

7 643 

S 7 A CL. A 

/ ADDRESS COD*'? 

7 7 3 3 

5 33 6 

JMP .+4 


77)3 

1 3 ] 3 

TAO AOPACH 

/ YES, SET A RANCH ' 

7 7 ') 4 

33<?7 

OCA ARANCH 

/ address change 

77 15 

5 47 5 

JMP I 40 TEST 


77 ) 6 

337 5 

IS Z AO TEST 


7 7 17 

1311 

TAO ADHOLD 

/ NO, GET PULSE AND 

7 7 I 1 

5 67 5 

JMP I AOTEST 

/ RETURN 
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77 11 

33 • >) AD HOLD , 


77 1 3 

6001 AOKEY, 

-3 10 0 

77 1 3 

3363 ADPACH# 

’ JMP ADD.3S 

77 1 4 

8333 LIS N, 

0 

77 1 5 

1 334 

TAD 83D 

77 1 6 

3 33 3 

DCA DA IT 

77 1 7 

6 3 3 1 

x 3 1 ;m 

7 7 3 1 

6334 

/COL 

773 1 

7 43 J 

3 NA 

77 3 3 

3317 

JMP • - 3 

77 3 3 

3336 

DCA HOLD 

77:34 

6 331 

X 3 I N 

77 33 

6 3 34 

XX CL 

77 36 

7 4 40 

S 7. A 

77 37 

3 3 33 

J MR . + 3 

7 7 33 

33 33 

IS7 WAIT 

77 3 1 

5 334 

,JMP .-5 

77 3 3 

1 336 

TAD HOLD 

77 33 

37 14 

JMP I LIS 

77 34 

7773 8^0, 

7 7 7 3 

7 7 3 5 

00 11 0 AIT, 

'■ 1 

77 36 

0000 HOLD, 

A 

ADD 

7 67 0 


AODKS 

7663 


A!) HOLD 

771 1 


AD KEY 

77 13 


AD p AC H 

77 13 


AOTEST 

7675 


OKAtNCH 

7 6 57 


CNTK 

7673 


CNT3N 

7673 


GETHLQ 

767 1 


GO 

7641 


HOLD 

7736 


LI SN 

77 14 


NO 3^ 

7667 


8 P 0 

7 7 34 


ST A3 r 

7 63 5 


v/AL'JE 

7 67 4 


WA I T 

77 35 


XKCL 

6334 


XX I N 

633 1 



/ 3TT ! |J "’OK 
/ s i ISTC l_ 0 

/ LOOK "~0‘K II..S ' 

/ STT ONT ? 

/ i\0 j LOOK AGAIN 

/ yts* stokt pml.sk: 


/ ••'AIT F OP SO MS”0 
/ IV? ANOTHTK PU|..S~ 

/ AOO 5-1KST lJ MLS" 

/ TO ST CO NO uifLST* 

/ I F ANY > A NO K’TT'RN 
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